home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_314.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.0 KB  |  37 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   if chars(field "mtmodnum", 2, 2) contains "9" then
  4.     if field "diamodnum" contains "8" then
  5.       put "99." into field "mtmodnum"
  6.     else
  7.       put "09." into field "mtmodnum"
  8.     end if
  9.   end if
  10.   if chars(field "mtmodnum", 2, 2) contains "8" then
  11.     if field "diamodnum" contains "8" then
  12.       put "98." into field "mtmodnum"
  13.     else
  14.       put "08." into field "mtmodnum"
  15.     end if
  16.   end if
  17.   if chars(field "mtmodnum", 2, 2) contains "9" then
  18.     if field "maincasterphoto" contains "impak" then
  19.       put "79." into field "mtmodnum"
  20.     end if
  21.   end if
  22.   if chars(field "mtmodnum", 2, 2) contains "8" then
  23.     if field "diamodnum" contains "8" then
  24.       if field "maincasterphoto" contains "impak" then
  25.         put "78." into field "mtmodnum"
  26.       end if
  27.     end if
  28.   end if
  29.   put "92" into field "whmodnum"
  30.   put EMPTY into field "bemodnum"
  31.   put EMPTY into field "comodnum"
  32.   put EMPTY into field "whexmodnum"
  33.   put EMPTY into field "bearingoption"
  34.   puppetTransition(47, 1, 8)
  35.   play frame "4bbearingc"
  36. end
  37.